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; Define the message section format 
module SMSCDEF; 


aggregate MSCDEF structure prefix MSCS; 
PE byte unsigned; /* TYPE OF MESSAGE SECTION 


constant ( 
MSG /* CONTAINS arr MESSAGE TEXT 
« IND /* CONTAINS FILE SPEC OF MESSAGE FILE 
paca /* MAXIMUM ALLOWABLE TYPE CODE 
eouet s 0 increment 1 prefix MSC tag $C; 
FLAGS OVERLAY union; 


Bits une toned /* FLAGS 

FLAGS BITS struct 

a bitfield heshi /* TRUE IF FILE HAS BEEN MAPPED (IND ONLY) 
end FLAGS_OVERLAY; 

SANITY word unsigned; /* SANITY CHECK (MUST = MSCSC_SANITY) 
constant SANITY equals 1234 prefix MSC tag $C; 

SIZE longword uns tgne /* LENGTH OF ENTIRE MESSAGE SECTION (MSG) 


INDEX_OFF Longword unsigned: /* OFFSET TO PRIMARY INDEX PORTION 
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FAC_OFF longword unsigned; /* OFFSET TO FACILITY TABLE 
TEXT_OFF Longword uns gned; /* OFFSET TO TEXT PORTION 
SUBST_OFF Longword unsigned; — /* OFFSET TO TEXT SUBSTITUTION TABLE 
FILL_T Longyord dimension 4 fill prefix MSCDEF tag $$;/* RESERVED 
constant ‘LENGTH’: equals . prefix MSC$ tag K; /* LENGTH OF FIXED PORTION (MSG) 
constant “‘LENGTH’’ equals . prefix MSC$ tag C; /* LENGTH OF FIXED PORTION (MSG) 
end MSCDEF; 
overgpete MSCDEF1 structure prefix MSC$; 
FILL.2 byte dimension 8 fill prefix MSCDEF tag $$; 
INDNAMLEN byte unsigned; /* LENGTH OF COUNTED STRING 
INDNAME character; /* FILE SPEC OF MESSAGE FILE 
end MSCDEF1; 
end_module SMSCDEF; 
module SMIDXDEF; 
/* 
oe Define message section index 
/* ALL message indicies are longword aligned and the 
/* size is always rounded to the next longword boundary. 
This is done for additional verification checks. 
constant BKTSIZ equals 512 prefix MIDX tag $C; /* BUCKET SIZE IN BYTES 
aggregate MIDXDEF structure prefix MIDX$; 
SIZE word unsigned; /* LENGTH OF INDEX IN BYTES 
SANITY byte unsigned; /* SANITY CHECK (MUST = MIDXSC_SANITY) 
constant SANITY equals 123 prefix MIDX tag $C; 
FILL_1 byte dimension 5 fill prefix MIDXDEF tag $$; /* UNUSED, ROUND SO BYTES LEFT DIV. BY 8 
constant ‘LENGTH’ equals . prefix MIDX$ tag K; /* LENGTH OF FIXED BUCKET OVERHEAD 
constant ‘LENGTH’ equals . prefix MIDX$ tag C; /* LENGTH OF FIXED BUCKET OVERHEAD 
constant ENTRIES equals . prefix MIDX$ tag K; /* START OF INDEX ENTRIES 
constant ENTRIES equals . prefix MIDX$ tag C; /* START OF INDEX ENTRIES 
/* pACH IS 8 BYTES, 
/* Q-3: MESSAGE CODE 
/* 4-7: OFFSET TO MESSAGE RECORD 
/* (IF LOW BIT SET, THEN OFFSET 
/* POINTS TO SUBINDEX RATHER THAN 
/* A MESSAGE RECORD) 


end MIDXDEF; 
end_module SMIDXDEF; 
module $SMRECDEF; 
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aggregate MRECDEF structure prefix MRECS; 


word unsigned: 
TYPE byte unsigned; 
FLAGS byte unsigned; 
LEVEL byte unsigned; 
FAOCNT byte unsigned; 
USERVAL byte unsigned; 
FILL_1 byte fill prefix MRECDEF tag $$; 
LANG byte unsigned; 
constant ( 
ENGLISH 
- GERMAN 
FRENCH 
j equals 0 increment 1 prefix MREC tag $C; 
constant FIXEDLEN equals . prefix MRECS tag K; 
constant FIXEDLEN equals . prefix MRECS$ tag C; 
JDENTLEN byte unsigned; 
IDENT’’ character; 


end MRECDEF ; 
end_module SMRECDEF ; 
module SMFACDEF; 


Define facility name table within section 


aggregate MFACDEF structure prefix MFACS$; 
99 8 BER : Pp 


word unsigned; 
NAMELEN byte unsigned; 
NAME character; 


end MFACDEF; 
end_module $MFACDEF ; 
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/* ALL message definition records are word aligned and 
/* the size is rounded to the next word boundary. This 
. is done for additional verification checks. 


LENGTH OF MESSAGE DEFINITION RECORD 
ibs OF MESSAGE RECORD 


LAGS 
MESSAGE DETAIL LEVEL (0-255) 
NUMBER OF FAO ARGUMENTS IN MESSAGE 
vere SPECIFIED VALUE 


LANGUAGE NUMBER 


ENGLISH LANGUAGE (DEFAULT) 
GERMAN LANGUAGE 
FRENCH LANGUAGE 


LENGTH OF FIXED PORTION OF RECORD 
LENGTH OF FIXED PORTION OF RECORD 
MESSAGE T STRING LENSTH 
MESSAGE IDENT STRING 

MESSAGE TEXT FOLLOWS (ASCIC) 


FACILITY NUMBER 
LENGTH OF FACILITY NAME 
FACILITY NAME (VARIABLE LENGTH) 
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